MacWorld 2005 July/Macworld CD 17.05.iso/Data/Main.dxr/00024_sounder.ls

Text File | 2000-02-28 | 688 b | 35 lines

property enterSound, downSound, upSound

on new me
  return me
end

on getPropertyDescriptionList me
  d = [:]
  addProp(d, #enterSound, [#default: "wzmo", #format: #string, #comment: "mouseEnter Sound:"])
  addProp(d, #downSound, [#default: "none", #format: #string, #comment: "mouseDown Sound:"])
  addProp(d, #upSound, [#default: "none", #format: #string, #comment: "mouseUp Sound:"])
  return d
end

on mouseEnter me
  if enterSound <> "none" then
    puppetSound(enterSound)
  end if
  pass()
end

on mouseDown me
  if downSound <> "none" then
    puppetSound(downSound)
  end if
  pass()
end

on mouseUp me
  if upSound <> "none" then
    puppetSound(upSound)
  end if
  pass()
end